home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
prgtools
/
prtsut53.zip
/
SU1SRC.ZIP
/
FDEMO02.DFM
/
FDEMO02.txt
next >
Wrap
Text File
|
1996-12-29
|
10KB
|
429 lines
object Form02: TForm02
Left = 370
Top = 161
Width = 600
Height = 400
Caption = 'Form02'
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 120
Position = poScreenCenter
TextHeight = 20
object VPanel1: TBitBtn
Left = 496
Top = 24
Width = 85
Height = 33
Caption = '&Panel1'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = VPanel1Click
end
object ScrollBox1: TScrollBox
Left = 12
Top = 4
Width = 477
Height = 361
VertScrollBar.Range = 1000
VertScrollBar.Position = 641
AutoScroll = False
TabOrder = 1
object Panel1: TPanel
Left = 0
Top = -641
Width = 462
Height = 333
Align = alTop
TabOrder = 0
object Memo1: TMemo
Left = 32
Top = 28
Width = 397
Height = 233
Alignment = taCenter
Font.Color = clNavy
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
Lines.Strings = (
'Here are 3 Panels. Underneath them is a '
'TScrollBox. '
''
'By setting the Vertical Range the page'
'is longer than the form'
''
'These Panels can have any supported '
'component on them and do not have to'
'show on the screen to be printed.'
''
'They can also have different heights'
'')
ParentFont = False
TabOrder = 0
end
object Edit1: TEdit
Left = 28
Top = 300
Width = 409
Height = 26
Font.Color = clBlue
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Text = 'The first Panel ends just below this TEdit component'
end
end
object Panel3: TPanel
Left = 0
Top = 32
Width = 462
Height = 327
Align = alClient
TabOrder = 1
object Label3: TLabel
Left = 88
Top = 8
Width = 270
Height = 23
Caption = 'This is the start of the 3rd Panel'
Font.Color = clMaroon
Font.Height = -20
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 16
Top = 36
Width = 437
Height = 197
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Color = clBlack
TitleFont.Height = -15
TitleFont.Name = 'Arial'
TitleFont.Style = []
end
object Panel5: TPanel
Left = 28
Top = 244
Width = 409
Height = 73
BorderStyle = bsSingle
TabOrder = 1
object DBImage1: TDBImage
Left = 128
Top = 8
Width = 137
Height = 57
DataField = 'BMP'
DataSource = DataSource1
Stretch = True
TabOrder = 0
end
end
end
object Panel2: TPanel
Left = 0
Top = -308
Width = 462
Height = 340
Align = alTop
TabOrder = 2
object Label1: TLabel
Left = 32
Top = 8
Width = 393
Height = 18
Caption = 'The 2nd Panel starts just above this TLabel Component'
Font.Color = clRed
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Shape1: TShape
Left = 32
Top = 152
Width = 225
Height = 105
Brush.Color = clBlue
Brush.Style = bsCross
Shape = stEllipse
end
object Label2: TLabel
Left = 104
Top = 312
Width = 223
Height = 20
Caption = 'This is the end of the 2nd Panel'
Font.Color = clBlack
Font.Height = -17
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object RadioGroup1: TRadioGroup
Left = 28
Top = 44
Width = 229
Height = 85
Caption = 'RadioGroup1'
Font.Color = clNavy
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 0
end
object RadioButton1: TRadioButton
Left = 64
Top = 72
Width = 113
Height = 17
Caption = 'RadioButton1'
TabOrder = 1
end
object RadioButton2: TRadioButton
Left = 64
Top = 96
Width = 113
Height = 17
Caption = 'RadioButton2'
TabOrder = 2
end
object Panel4: TPanel
Left = 268
Top = 56
Width = 185
Height = 213
BorderStyle = bsSingle
TabOrder = 3
object Image1: TImage
Left = 40
Top = 116
Width = 105
Height = 85
Picture.Data = {<image000.bmp>}
Stretch = True
end
object Memo2: TMemo
Left = 16
Top = 16
Width = 157
Height = 85
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Lines.Strings = (
'Underneath this TMemo'
'is another TPanel.'
'Contents of all TPanel'
'components are'
'printed recursively'
''
'')
ParentFont = False
TabOrder = 0
end
end
object Button1: TButton
Left = 24
Top = 276
Width = 413
Height = 33
Caption = 'Buttons are NOT printed - so they can appear anywhere'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 4
OnClick = Button1Click
end
end
end
object Exit: TBitBtn
Left = 496
Top = 308
Width = 85
Height = 33
Caption = '&Exit'
ModalResult = 1
TabOrder = 2
OnClick = ExitClick
end
object VPanel2: TBitBtn
Left = 496
Top = 60
Width = 85
Height = 33
Caption = '&Panel2'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = VPanel2Click
end
object VPanel3: TBitBtn
Left = 496
Top = 96
Width = 85
Height = 33
Caption = '&Panel3'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = VPanel3Click
end
object VAll: TBitBtn
Left = 496
Top = 144
Width = 85
Height = 33
Caption = '&All - Diff'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = VAllClick
end
object AllSame: TBitBtn
Left = 496
Top = 188
Width = 85
Height = 33
Caption = '&All - Same'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = AllSameClick
end
object BitBtn1: TBitBtn
Left = 496
Top = 228
Width = 85
Height = 33
Caption = '&Landscape'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = BitBtn1Click
end
object DataSource1: TDataSource
DataSet = Table1
Left = 561
Top = 274
end
object Table1: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'ANIMALS.DBF'
Left = 529
Top = 274
object Table1NAME: TStringField
DisplayWidth = 15
FieldName = 'NAME'
Size = 10
end
object Table1SIZE: TSmallintField
DisplayWidth = 13
FieldName = 'SIZE'
end
object Table1WEIGHT: TSmallintField
DisplayWidth = 18
FieldName = 'WEIGHT'
end
object Table1AREA: TStringField
DisplayWidth = 26
FieldName = 'AREA'
end
object Table1BMP: TBlobField
FieldName = 'BMP'
Visible = False
Size = 1
end
end
object DBPrintWin1: TDBPrintWin
About = 'Version 5.32'
AboutRegistered = 'TOM SNIDER'
HeaderFont.Color = clWindowText
HeaderFont.Height = 16
HeaderFont.Name = 'Arial'
HeaderFont.Style = []
Font.Color = clWindowText
Font.Height = 16
Font.Name = 'Arial'
Font.Style = []
FooterFont.Color = clWindowText
FooterFont.Height = 12
FooterFont.Name = 'Arial'
FooterFont.Style = []
FrameObjects = True
clBtnFaceAsWhite = True
OutputTo = poViewer
Orientation = Default
Units = poInches
ViewButtonVisible = False
ShowCancelDialog = True
LineWidth = 0
Copies = 1
GridBackDrop = False
GridBackDropUnits = poInches
ZoomPercentage = 25.000000000000000000
HeaderTop = 0.500000000000000000
HeaderLeft = 0.500000000000000000
HeaderStringLeft = ' '
HeaderStringCenter = ' '
HeaderStringRight = ' '
HeaderEnabled = True
HeaderOutlined = False
HeaderFilled = False
TextColor = clBlack
ViewBkColor = 11234567
ViewHeading = 'Printit Viewer'
HeadingColor = clSilver
FrameStyle = frThin
FooterTop = 10.170000000000000000
FooterString = ' '
FooterEnabled = True
FooterOutlined = False
FooterFilled = False
FixSansSerif = True
FooterStringLeft = 'Printed on @Date at @Time'
FooterStringRight = 'Page @Page'
BorderLeft = 0.500000000000000000
BorderRight = 0.500000000000000000
LineSpacing = 2.800000000000000000
Left = 397
Top = 25
end
end